home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / news / readers / nn / nn6.4.patch7 < prev    next >
Encoding:
Text File  |  1990-07-09  |  56.2 KB  |  2,182 lines
  1.          This is an official patch to nn release 6.4
  2.          -------------------------------------------
  3.  
  4.                    PATCH #7
  5.  
  6.                 Priority: LOW
  7.  
  8.  
  9. These patches fix a few minor bugs in the 6.4 release, and add some
  10. new features based on patches and suggestions sent to me.
  11.  
  12. Specifically, it fixes a bug introduced in patch #6 with the new
  13. reading mode prompt style, where the array holding the prompt could be
  14. too small causing undefined behaviour (include core dumps).
  15.  
  16. Major new features are:
  17.  
  18. - User defined keymaps which can be bound to "prefix" keys, e.g.
  19.  
  20.     make map ctl-x            # create a new keymap named ctl-x
  21.     map both ^X prefix ctl-x    # bind it to ^X
  22.     map ctl-x x macro 1        # bind macro 1 to ^X x
  23.  
  24. - Printed and saved headers can now be fully costumized just like the
  25.   reading mode headers via two new variables: print-header-lines and
  26.   save-header-lines which use the same syntax as the header-lines
  27.   variable.
  28.  
  29. - On colour displays, overlapping text when scrolling through an
  30.   article in reading mode can now be "shaded" using any colour or
  31.   other display attribute you like, e.g.
  32.   
  33.     on term ti924-colour
  34.         set shading-on  ^[ [ 3 2 m
  35.         set shading-off ^[ [ 3 7 m
  36.         set mark-overlap-shading
  37.         unset mark-overlap
  38.     end
  39.     
  40. As usual, all changes are described in the updated RELEASE_NOTES file
  41. (read that for more details about this patch).  Thanks to all who
  42. reported bugs and provided fixes.
  43.  
  44. To apply this patch, use nn's :patch command, or run this command from
  45. the shell in the root of the nn source tree:
  46.     patch -p0 < this-article
  47.  
  48.  
  49. ++Kim Storm
  50.  
  51. *** ./LAST/account.c    Mon Jun 25 15:46:36 1990
  52. --- account.c    Thu Jul  5 23:45:07 1990
  53. ***************
  54. *** 273,279 ****
  55.       putchar(NL);
  56.       }
  57.   
  58. !     printf("%-8.8s  %4ld.%02ld  %5d  %s  ",
  59.          ac->ac_user,
  60.          ac->ac_total/60, ac->ac_total%60,
  61.          ac->ac_quota,
  62. --- 273,279 ----
  63.       putchar(NL);
  64.       }
  65.   
  66. !     printf("%-8.8s  %4ld.%02ld  %5d  %-12.12s  ",
  67.          ac->ac_user,
  68.          ac->ac_total/60, ac->ac_total%60,
  69.          ac->ac_quota,
  70. *** ./LAST/aux.sh    Mon Jun 25 15:46:38 1990
  71. --- aux.sh    Tue Jul  3 11:17:53 1990
  72. ***************
  73. *** 29,34 ****
  74. --- 29,36 ----
  75.   #    MAILER_PIPE    [mailer-pipe-input]
  76.   #    DFLT_ANSW    [response-default-answer]
  77.   
  78. + CC=""
  79. + 
  80.   . ${HOME}/.nn/.param
  81.   
  82.   # first argument is operation to be performed:
  83. *** ./LAST/doc/PROBLEMS    Sat May  5 16:16:28 1990
  84. --- doc/PROBLEMS    Thu Jul  5 21:33:10 1990
  85. ***************
  86. *** 307,312 ****
  87. --- 307,318 ----
  88.   are stripped to 7 bits, but articles displayed on the screen can be
  89.   shown either in 7 or 8 bit mode via the data-bits variable.
  90.   
  91. + With patch #6 installed, nn does indeed support 8 bit input if
  92. + data-bits = 8.  However, the positions 0x80 through 0x9f are reserved
  93. + for internal use, so only the various ISO 8859/* character sets are
  94. + *fully* supported, while some PC code pages may overlay some national
  95. + characters with function keys.
  96. + 
  97.   
  98.                    MAIL RECORDS
  99.                    ------------
  100. *** ./LAST/doc/RELEASE_NOTES    Mon Jun 25 15:46:39 1990
  101. --- doc/RELEASE_NOTES    Mon Jul  9 16:57:35 1990
  102. ***************
  103. *** 883,889 ****
  104. --- 883,930 ----
  105.   From:    KFS
  106.   Fixed:    Patch #6 [account.c execute.c]
  107.   
  108. + Prog:    nn
  109. + Title:    Syntax error if MALLOC_GRAIN is defined
  110. + From:    olson%anchor.esd@sgi.com (Dave Olson) + fix
  111. + Fixed:    Patch #7 [nn.c]
  112. + 
  113. + Prog:    nn
  114. + Title:    May crash in reading mode if prompt is too long
  115. + From:    root@ttank.ttank.com (Karl Bunch)
  116. + Fixed:    Patch #7 [more.c  (pr_fmt overflow)]
  117. + 
  118. + Prog:    nn
  119. + Title:    show-purpose-mode is ignored in auto-read-mode
  120. + From:    KFS
  121. + Fixed:    Patch #7 [menu.c]
  122. + 
  123. + Prog:    nn
  124. + Title:    All multi keys are named #A
  125. + From:    dean%coplex@relay.EU.net (Dean Brooks)
  126. + Fixed:    Patch #7 [keymap.c]
  127. + 
  128. + Prog:    aux
  129. + Title:    The CC variable conflicts with "standard" CC variable
  130. + From:    Greg Christy <greg@mickey.imsd.contel.com>
  131. +     scs@iti.org (Steve Simmons) +fix
  132. + Fixed:    Patch #7 [aux.sh]
  133. + 
  134. + Prog:    nnmaster expire - nntp
  135. + Title:    nnmaster terminates if nntp server is down when expire -E1 starts.
  136. + From:    pete@eleazar.dartmouth.edu (Pete Schmitt)
  137. + Fixed:    Patch #7 [nntp.c]
  138. + 
  139. + Prog:    nnacct
  140. + Title:    AUTHORIZE without ACCOUNTING does not work
  141. + From:    Peter J Nilsson <pjn@IDA.LiU.SE> + fix
  142. + Fixed:    Patch #7 [account.c proto.c]
  143.   
  144. + Prog:    nn
  145. + Title:    ~OLD~FOLDER~ is not removed when folder is compressed.
  146. + From:    conrad@zeno.mmwb.ucsf.EDU (Conrad Huang)
  147. + Fixed:    Patch #7 [folder.c]
  148. + 
  149. + 
  150.   New features since initial 6.4.0 release
  151.   ----------------------------------------
  152.   
  153. ***************
  154. *** 1052,1054 ****
  155. --- 1093,1137 ----
  156.   Title:    Header printed by :print now configurable via print-header-type
  157.   From:    KFS on request from Mikael.C.Kjaerulff@copenhagen.ncr.dk
  158.   Added:    Patch #6 [save.c variable.c nn.1]
  159. + 
  160. + Prog:    nn
  161. + Title:    Saved/printed short headers are now fully configureable
  162. +     via save-header-lines and print-header-lines variables.
  163. + From:    KFS on request from leo@aai.com
  164. + Added:    Patch #7 [save.c variable.c nn.1]
  165. + 
  166. + Prog:    nn
  167. + Title:    show-purpose-mode support on nntp clients.
  168. + From:    olson%anchor.esd@sgi.com (Dave Olson)
  169. + Added:    Patch #7 [nntp.c menu.c]
  170. + 
  171. + Prog:    nn
  172. + Title:    Overlap can now be "shaded" using "any" attribute (including colour)
  173. +     via the variables: mark-overlap-shading, shading-on, sharing-off
  174. + From:    KFS on request from Uwe Doering
  175. + Added:    Patch #7 [more.c variable.c nn.1]
  176. + 
  177. + Prog:    nn
  178. + Title:    Additional keymaps can now be created and bound to "prefix key".
  179. + From:    KFS on request from rock@Sun.COM (Bill "Rock" Petro)
  180. + Added:    Patch #7 [init.c keymap.c keymap.h menu.c more.c variable.c nn.1]
  181. + 
  182. +     set echo-prefix-key        # echo prefix key
  183. +     make map ctl-x            # create a new keymap named ctl-x
  184. +     map both ^X prefix ctl-x    # bind it to ^X
  185. +     map ctl-x x macro 1        # bind macro 1 to ^X x
  186. + 
  187. + Prog:    nn
  188. + Title:    Path: line is used in "From " line when use-path-in-from is set.
  189. + From:    KFS on request from Bill Gaines <gatech!iccdev!bill>
  190. + Added:    Patch #7 [save.c variable.c nn.1]
  191. + 
  192. + Prog:    nn
  193. + Title:    New "clear" command to clear screen (e.g. at top of init file)
  194. + From:     KFS on request from paul@uxc.cso.uiuc.edu (Paul Pomes)
  195. + Added:    Patch #7 [init.c]
  196. + 
  197. + Prog:    nn
  198. + Title:    New interactive :load command to reload init file (sequence is ignored)
  199. + From:    KFS
  200. + Added:    Patch #7 [init.c]
  201. *** ./LAST/folder.c    Mon Jun 25 15:46:40 1990
  202. --- folder.c    Mon Jul  9 14:51:12 1990
  203. ***************
  204. *** 464,469 ****
  205. --- 464,470 ----
  206.       fclose(dst);
  207.       goto move_back;
  208.       }
  209. +     unlink(oldfile);
  210.       return;
  211.   
  212.   move_back:
  213. *** ./LAST/group.c    Mon Jun 25 15:46:41 1990
  214. --- group.c    Thu Jul  5 18:06:18 1990
  215. ***************
  216. *** 381,386 ****
  217. --- 381,388 ----
  218.       if ((re = regcomp(name)) == NULL) return NULL;
  219.       y = any = 0;
  220.       
  221. +     if (pr && (flag & 1)) m_advinput();
  222. + 
  223.       if (flag & 1)
  224.       Loop_Groups_Sequence(gh) {
  225.           if (gh->last_db_article == 0) continue;
  226. *** ./LAST/init.c    Mon Jun 25 15:46:42 1990
  227. --- init.c    Mon Jul  9 17:10:35 1990
  228. ***************
  229. *** 238,251 ****
  230.       "decode",            6,    0,
  231.       "define",            6,    0,
  232.       "help",            4,    2,
  233.       "local",            5,    3,
  234.       "man",            3,    0,
  235. !     "map",            3,    -1,
  236. !     "map #",            5,    -2,
  237. !     "map both",            8,    4,
  238. !     "map key",            7,    0,
  239. !     "map menu",            8,    4,
  240. !     "map show",            8,    4,
  241.       "mkdir",            5,    1,
  242.       "patch",            5,    0, /* QUICK HACK */
  243.       "post",            4,    0, /* QUICK HACK */
  244. --- 238,249 ----
  245.       "decode",            6,    0,
  246.       "define",            6,    0,
  247.       "help",            4,    2,
  248. +     "load",            4,    0,
  249.       "local",            5,    3,
  250. +     "make",            4,    -1,
  251. +     "make map ",        9,    -2,
  252.       "man",            3,    0,
  253. !     "map",            3,    4,
  254.       "mkdir",            5,    1,
  255.       "patch",            5,    0, /* QUICK HACK */
  256.       "post",            4,    0, /* QUICK HACK */
  257. ***************
  258. *** 291,296 ****
  259. --- 289,295 ----
  260.       int temp;
  261.       register char *p, *q;
  262.       extern int file_completion(), var_completion(), cmd_completion();
  263. +     extern int keymap_completion();
  264.       extern int list_offset;
  265.   
  266.       if (other_compl) {
  267. ***************
  268. *** 369,380 ****
  269.               head = p;
  270.               temp++;
  271.               }
  272. !         if (temp != 1) return -1;
  273.   
  274. -         other_compl = cmd_completion;
  275.           tail = NULL;
  276.           len = p - head;
  277. !         temp = cmd_completion(head, len);
  278.           break;
  279.           }
  280.           if (temp <= 0) other_compl = NULL;
  281. --- 368,383 ----
  282.               head = p;
  283.               temp++;
  284.               }
  285. !         if (temp == 0) 
  286. !             other_compl = keymap_completion;
  287. !         else if (temp == 2)
  288. !             other_compl = cmd_completion;
  289. !         else
  290. !             return -1;
  291.   
  292.           tail = NULL;
  293.           len = p - head;
  294. !         temp = CALL(other_compl)(head, len);
  295.           break;
  296.           }
  297.           if (temp <= 0) other_compl = NULL;
  298. ***************
  299. *** 565,580 ****
  300.               dump_global_map();
  301.               break;
  302.           }
  303. !         CASE( "menu" ) {
  304. !             clrdisp();
  305. !             dump_key_map(menu_key_map, "menu", K_ONLY_MENU);
  306. !             break;
  307. !         }
  308. !         CASE( "show" ) {
  309. !             clrdisp();
  310. !             dump_key_map(more_key_map, "show", K_ONLY_MORE);
  311.               break;
  312. -         }
  313.   
  314.           init_message("unknown map '%s'", argv(mode_arg));
  315.           goto err;
  316. --- 568,575 ----
  317.               dump_global_map();
  318.               break;
  319.           }
  320. !         if (dump_key_map(name) >= 0)
  321.               break;
  322.   
  323.           init_message("unknown map '%s'", argv(mode_arg));
  324.           goto err;
  325. ***************
  326. *** 629,744 ****
  327.   {
  328.       int code, map_menu, map_show, must_redraw = 0;
  329.       key_type bind_to;
  330. ! 
  331. !     SWITCH( argv(1) ) {
  332. ! 
  333. !     CASE( "key" ) {
  334. !         if (argv(3) == NULL) break;
  335. !         global_key_map[parse_key(argv(2))] = parse_key(argv(3));
  336. !         goto out;
  337.       }
  338. ! 
  339. !     if (argv(1)[0] == '#') {
  340. !         key_type multi_buffer[16], *mb;
  341. !         int i;
  342. ! 
  343. !         if (argv(1)[1] == NUL) break;
  344. !         if (isdigit(argv(1)[1])) 
  345. !         bind_to = K_function(argv(1)[1] - '0');
  346. !         else {
  347. !         bind_to = parse_key(argv(1) + 1);
  348. !         if (bind_to < K_up_arrow || bind_to > K_right_arrow) break;
  349. !         }
  350. ! 
  351. !         for (i = 2, mb = multi_buffer; argv(i); i++)
  352. !         *mb++ = parse_key(argv(i));
  353. !         *mb = NUL;
  354. ! 
  355. !         enter_multi_key(bind_to, (key_type *)copy_str((char *)multi_buffer));
  356. ! 
  357. !         goto out;
  358.       }
  359. ! 
  360. !     code = K_UNBOUND;
  361. !     map_menu = map_show = 0;
  362. ! 
  363. !     CASE( "menu" ) {
  364. !         map_menu++;
  365. !     }
  366. !     CASE( "show" ) {
  367. !         map_show++;
  368. !     }
  369. !     CASE( "both" ) {
  370. !         map_menu++;
  371. !         map_show++;
  372. !     }
  373. ! 
  374. !     if (ARG(3, "(")) {
  375. !         extern char *m_define();
  376. ! 
  377. !         code = (int)m_define("-2", initf);
  378. !         must_redraw = 1;
  379. !         if (code == K_UNBOUND) goto mac_err;
  380. !     }
  381. ! 
  382. !     if (map_menu) {
  383. !         if (code == K_UNBOUND && argv(3))
  384. !         code = lookup_command(argv(3), K_ONLY_MENU);
  385. ! 
  386. !         if (code == K_EQUAL_KEY) {
  387. !         if (argv(4))
  388. !             code = menu_key_map[parse_key(argv(4))];
  389. !         else
  390. !             goto mac_err;
  391. !         } else
  392. !         if (code == K_MACRO || code == K_ARTICLE_ID)
  393. !         if (argv(4))
  394. !             code |= atoi(argv(4));
  395. !         else
  396. !             goto mac_err;
  397. ! 
  398. !         if (code != K_INVALID) {
  399. !         bind_to = parse_key(argv(2));
  400. !         if (code & K_MACRO && orig_menu_map[bind_to] == 0)
  401. !             orig_menu_map[bind_to] = menu_key_map[bind_to];
  402. !         menu_key_map[bind_to] = code;
  403. !         if (!map_show) goto out;
  404. !         }
  405. !     }
  406. ! 
  407. !     if (map_show) {
  408. !         if (code == K_UNBOUND && argv(3))
  409. !         code = lookup_command(argv(3), K_ONLY_MORE);
  410. ! 
  411. !         if (code == K_EQUAL_KEY) {
  412. !         if (argv(4))
  413. !             code = more_key_map[parse_key(argv(4))];
  414. !         else
  415. !             goto mac_err;
  416. !         } else
  417. !         if (code == K_MACRO)
  418. !         if (argv(4))
  419. !             code |= atoi(argv(4));
  420. !         else
  421. !             goto mac_err;
  422. ! 
  423. !         if (code != K_INVALID) {
  424. !         more_key_map[parse_key(argv(2))] = code;
  425. !         goto out;
  426. !         }
  427. !     }
  428. ! 
  429. !     if (argv(4)) break;
  430. ! 
  431. !     if (code == K_INVALID) {
  432. !         init_message("unknown key command: %s", argv(3));
  433.           goto out;
  434.       }
  435.       }
  436. ! 
  437. !     print_command("syntax error");
  438.       goto out;
  439. ! 
  440.    mac_err:
  441.       print_command("map argument missing");
  442.    out:
  443. --- 624,727 ----
  444.   {
  445.       int code, map_menu, map_show, must_redraw = 0;
  446.       key_type bind_to;
  447. !     register struct key_map_def *map_def;
  448. !     register int *map;
  449. !     
  450. !     code = lookup_keymap(argv(1));
  451. !     if (code < 0) {
  452. !     print_command("unknown map");
  453. !     goto out;
  454. !     }
  455. !     map_def = &keymaps[code];
  456. !     
  457. !     if (map_def->km_flag & K_GLOBAL_KEY_MAP) {
  458. !     if (argv(3) == NULL) goto mac_err;
  459. !     if (argv(2) == NULL) {
  460. !         dump_global_map();
  461. !         return 1;
  462.       }
  463. !     global_key_map[parse_key(argv(2))] = parse_key(argv(3));
  464. !     return 0;
  465. !     }
  466. !     
  467. !     if (map_def->km_flag & K_MULTI_KEY_MAP) {
  468. !     key_type multi_buffer[16], *mb;
  469. !     int i;
  470. !     
  471. !     if (argv(1)[1] == NUL) {
  472. !         dump_multi_keys();
  473. !         return 1;
  474.       }
  475. !     
  476. !     if (isdigit(argv(1)[1])) 
  477. !         bind_to = K_function(argv(1)[1] - '0');
  478. !     else {
  479. !         bind_to = parse_key(argv(1) + 1);
  480. !         if (bind_to < K_up_arrow || bind_to > K_right_arrow) goto mac_err;
  481. !     }
  482. !     
  483. !     for (i = 2, mb = multi_buffer; argv(i); i++)
  484. !         *mb++ = parse_key(argv(i));
  485. !     *mb = NUL;
  486. !     
  487. !     enter_multi_key(bind_to, (key_type *)copy_str((char *)multi_buffer));
  488. !     return 0;
  489. !     }
  490. !     
  491. !     code = K_UNBOUND;
  492. !     map = map_def->km_map;
  493. !     map_show = map_def->km_flag & K_BOTH_MAPS;
  494. !     map_menu = map_def->km_flag & K_BIND_ORIG;
  495. !     
  496. !     if (ARG(3, "(")) {
  497. !     extern char *m_define();
  498. !     
  499. !     code = (int)m_define("-2", initf);
  500. !     must_redraw = 1;
  501. !     if (code == K_UNBOUND) goto mac_err;
  502. !     }
  503. !     
  504. !     if (code == K_UNBOUND && argv(3))
  505. !     code = lookup_command(argv(3), K_ONLY_MENU);
  506. !     
  507. !     switch (code) {
  508. !      case K_EQUAL_KEY:
  509. !     if (argv(4) == NULL) goto mac_err;
  510. !     code = map[parse_key(argv(4))];
  511. !     break;
  512. !     
  513. !      case K_MACRO:
  514. !      case K_ARTICLE_ID:
  515. !     if (argv(4) == NULL) goto mac_err;
  516. !     code |= atoi(argv(4));
  517. !     break;
  518. !     
  519. !      case K_PREFIX_KEY: 
  520. !     if (argv(4) == NULL) goto mac_err;
  521. !     code = lookup_keymap(argv(4));
  522. !     if (code < 0) {
  523. !         print_command("unknown prefix map");
  524.           goto out;
  525.       }
  526. +     code |= K_PREFIX_KEY;
  527. +     break;
  528.       }
  529. !     
  530. !     if (code == K_INVALID) {
  531. !     init_message("unknown key command: %s", argv(3));
  532. !     goto out;
  533. !     }
  534. !     
  535. !     bind_to = parse_key(argv(2));
  536. !     if (map_menu) {
  537. !     if (code & K_MACRO && orig_menu_map[bind_to] == 0)
  538. !         orig_menu_map[bind_to] = map[bind_to];
  539. !     }
  540. !     map[bind_to] = code;
  541. !     if (map_show)
  542. !     more_key_map[bind_to] = code;
  543.       goto out;
  544. !     
  545.    mac_err:
  546.       print_command("map argument missing");
  547.    out:
  548. ***************
  549. *** 946,951 ****
  550. --- 929,951 ----
  551.           break;
  552.       }
  553.   
  554. +     CASE("make") {
  555. +         if (ARG(1, "map") && argv(2)) {
  556. +         switch (make_keymap(argv(2))) {
  557. +          case -1:
  558. +             init_message("map %s already exists", argv(2));
  559. +             break;
  560. +          case -2:
  561. +             init_message("cannot make %s: too many maps", argv(2));
  562. +             break;
  563. +         }
  564. +         break;
  565. +         }
  566. + 
  567. +         print_command("invalid make command");
  568. +         break;
  569. +     }
  570. + 
  571.       CASE( "cd" ) {
  572.           if (change_dir(argv(1), in_init))
  573.           init_message("chdir %s FAILED", argv(1));
  574. ***************
  575. *** 953,958 ****
  576. --- 953,963 ----
  577.           break;
  578.       }
  579.   
  580. +     CASE( "clear" ) {
  581. +         clrdisp();
  582. +         break;
  583. +     }
  584. + 
  585.       if (in_init) {
  586.   
  587.           CASE( "load" ) {
  588. ***************
  589. *** 998,1003 ****
  590. --- 1003,1018 ----
  591.           }
  592.           return AC_KEYCMD;
  593.           }
  594. +     }
  595. + 
  596. +     CASE( "load" ) {
  597. +         clrdisp();
  598. +         in_init = 1;
  599. +         init_err = 0;
  600. +         load_init_file(argv(1) ? argv(1) : "init", (FILE **)NULL, 0);
  601. +         in_init = 0;
  602. +         if (init_err) any_key(0);
  603. +         return AC_REDRAW;
  604.       }
  605.   
  606.       CASE( "q" ) {
  607. *** ./LAST/keymap.c    Mon Jun 25 15:46:43 1990
  608. --- keymap.c    Thu Jul  5 19:09:32 1990
  609. ***************
  610. *** 503,508 ****
  611. --- 503,509 ----
  612.   
  613.       "patch",            K_PATCH,        0,
  614.       "post",            K_POST,            0,
  615. +     "prefix",            K_PREFIX_KEY,        0,
  616.       "preview",            K_PREVIEW,        0,
  617.       "previous",            K_PREVIOUS,        0,
  618.       "print",            K_PRINT,        0,
  619. ***************
  620. *** 536,542 ****
  621.   };
  622.   
  623.   static int name_map_size;
  624. ! static int max_cmd_name_length = 14;    /* recalculate if table is changed */
  625.   
  626.   export key_type global_key_map[KEY_MAP_SIZE];
  627.   
  628. --- 537,543 ----
  629.   };
  630.   
  631.   static int name_map_size;
  632. ! #define max_cmd_name_length 16    /* recalculate if table is changed */
  633.   
  634.   export key_type global_key_map[KEY_MAP_SIZE];
  635.   
  636. ***************
  637. *** 635,640 ****
  638. --- 636,642 ----
  639.       if (index > 0) break;
  640.       if (cmd->cmd_code == K_MACRO ||
  641.           cmd->cmd_code == K_ARTICLE_ID ||
  642. +         cmd->cmd_code == K_PREFIX_KEY ||
  643.           cmd->cmd_code == K_EQUAL_KEY)
  644.           sprintf(tail, "%s ", cmd->cmd_name + len);
  645.       else
  646. ***************
  647. *** 739,745 ****
  648.        default:
  649.           buf[0] = '#';
  650.           buf[1] = (c - K_function(0))
  651. !         + (c >= NORMAL_KEYS+ARROW_KEYS+MULTI_KEYS) ? 'A' : '0';
  652.           buf[2] = NUL;
  653.           goto out;
  654.       }
  655. --- 741,747 ----
  656.        default:
  657.           buf[0] = '#';
  658.           buf[1] = (c - K_function(0))
  659. !         + (c >= K_function(MULTI_KEYS) ? 'A'-K_function(MULTI_KEYS) : '0');
  660.           buf[2] = NUL;
  661.           goto out;
  662.       }
  663. ***************
  664. *** 793,807 ****
  665.   }
  666.   
  667.   
  668. ! dump_key_map(map, where, restriction)
  669. ! int map[];
  670.   char *where;
  671. - int restriction;
  672.   {
  673.       register struct command_name_map *cnmp;
  674.       register key_type c;
  675.       register int code, first_prt;
  676.       
  677.       clrdisp();
  678.       so_printf("\1KEY BINDINGS (%s)\1\n\n", where);
  679.   
  680. --- 795,812 ----
  681.   }
  682.   
  683.   
  684. ! dump_key_map(where)
  685.   char *where;
  686.   {
  687.       register struct command_name_map *cnmp;
  688.       register key_type c;
  689.       register int code, first_prt;
  690. +     int *map, restriction;
  691.       
  692. +     if ((code = lookup_keymap(where)) < 0) return -1;
  693. +     map = keymaps[code].km_map;
  694. +     restriction = keymaps[code].km_flag & (K_ONLY_MENU | K_ONLY_MORE);
  695. + 
  696.       clrdisp();
  697.       so_printf("\1KEY BINDINGS (%s)\1\n\n", where);
  698.   
  699. ***************
  700. *** 841,847 ****
  701. --- 846,948 ----
  702.           if (map == menu_key_map && orig_menu_map[c] != K_UNBOUND) 
  703.           printf(" (%s)", command_name(orig_menu_map[c]));
  704.       }
  705. +     else if (map[c] & K_PREFIX_KEY) {
  706. +         if (pg_next() < 0) goto out;
  707. +         printf("prefix %s: %s",
  708. +            keymaps[(map[c] & ~K_PREFIX_KEY)].km_name, key_name(c));
  709. +     }
  710.   
  711.    out:
  712.       pg_end();
  713. + }
  714. + 
  715. + #define MAX_KEYMAPS    17
  716. + 
  717. + struct key_map_def keymaps[MAX_KEYMAPS+1] = {
  718. +     "#",    NULL,        K_MULTI_KEY_MAP,
  719. +     "key",    NULL,        K_GLOBAL_KEY_MAP,
  720. +     "menu",    menu_key_map,    K_BIND_ORIG | K_ONLY_MENU,
  721. +     "show",    more_key_map,    K_ONLY_MORE,
  722. +     "both",    menu_key_map,    K_BOTH_MAPS | K_BIND_ORIG,
  723. +     "more",    more_key_map,    K_ONLY_MORE,
  724. +     "read",    more_key_map,    K_ONLY_MORE,
  725. +     NULL,
  726. + };
  727. + 
  728. + lookup_keymap(name)
  729. + char *name;
  730. + {
  731. +     register struct key_map_def *m;
  732. +     
  733. +     if (name[0] == '#') return 0;
  734. +     
  735. +     for (m = keymaps; m->km_name; m++) {
  736. +     if (strcmp(name, m->km_name) == 0) return m - keymaps;
  737. +     }
  738. +     return keymaps - m;
  739. + }
  740. + 
  741. + make_keymap(name)
  742. + char *name;
  743. + {
  744. +     register struct key_map_def *m;
  745. +     register int *kp;
  746. +     int ix;
  747. +     
  748. +     ix = lookup_keymap(name);
  749. +     if (ix >= 0) return -1;
  750. +     ix = -ix;
  751. +     if (ix == MAX_KEYMAPS) return -2;
  752. +     
  753. +     m = &keymaps[ix];
  754. +     m->km_name = copy_str(name);
  755. +     m->km_map = newobj(int, KEY_MAP_SIZE);
  756. +     m->km_flag = 0;
  757. +     for (kp = m->km_map; kp < &(m->km_map)[KEY_MAP_SIZE]; ) *kp++ = K_UNBOUND;
  758. + 
  759. +     return ix;
  760. + }
  761. + 
  762. + keymap_completion(buf, ix)
  763. + char *buf;
  764. + int ix;
  765. + {
  766. +     static char *head, *tail = NULL;
  767. +     static int len;
  768. +     static struct key_map_def *map, *help_map;
  769. + 
  770. +     if (ix < 0) return 0;
  771. + 
  772. +     if (buf) {
  773. +     head = buf;
  774. +     tail = buf + ix;
  775. +     while (*head && isspace(*head)) head++;
  776. +     help_map = map = keymaps;
  777. +     len = tail - head;
  778. + 
  779. +     return 1;
  780. +     }
  781. + 
  782. +     if (ix) {
  783. +     list_completion((char *)NULL);
  784. + 
  785. +     if (help_map->km_name == NULL)
  786. +         help_map = keymaps;
  787. + 
  788. +     for (;help_map->km_name; help_map++) {
  789. +         if (strncmp(help_map->km_name, head, len)) continue;
  790. +         if (list_completion(help_map->km_name) == 0) break;
  791. +     }
  792. +     fl;
  793. +     return 1;
  794. +     }
  795. + 
  796. +     for (; map->km_name; map++) {
  797. +     if (len && strncmp(map->km_name, head, len)) continue;
  798. +     strcpy(tail, map->km_name + len);
  799. +     if (map != keymaps) strcat(tail, " ");
  800. +     map++;
  801. +     return 1;
  802. +     }
  803. +     return 0;
  804.   }
  805. *** ./LAST/keymap.h    Mon Jun 25 15:46:43 1990
  806. --- keymap.h    Thu Jul  5 17:29:40 1990
  807. ***************
  808. *** 103,108 ****
  809. --- 103,109 ----
  810.   
  811.   #define    K_MACRO            0x0100 /* call macro            */
  812.   #define    K_ARTICLE_ID        0x0200 /* article id in lower part    */
  813. + #define K_PREFIX_KEY        0x0400 /* key map number in lower part    */
  814.   
  815.   /* keymap definitions from keymap.c */
  816.   
  817. ***************
  818. *** 112,117 ****
  819. --- 113,122 ----
  820.   
  821.   #define K_ONLY_MENU    0x0001
  822.   #define K_ONLY_MORE    0x0002
  823. + #define    K_BOTH_MAPS    0x0004    /* map flag: for "both" */
  824. + #define    K_BIND_ORIG    0x0008    /* map flag: must maintain orig_menu_map */
  825. + #define K_GLOBAL_KEY_MAP    0x0010    /* "key" */
  826. + #define    K_MULTI_KEY_MAP        0x0020     /* "#..." */
  827.   
  828.   typedef unsigned char key_type;
  829.   
  830. ***************
  831. *** 123,125 ****
  832. --- 128,139 ----
  833.   
  834.   extern char *key_name();
  835.   extern key_type parse_key();
  836. + 
  837. + struct key_map_def {
  838. +     char    *km_name;    /* key map name */
  839. +     int        *km_map;    /* key map table */
  840. +     
  841. +     int        km_flag;    /* flags */
  842. + };
  843. + 
  844. + extern struct key_map_def keymaps[];
  845. *** ./LAST/macro.c    Mon Jun 25 15:46:43 1990
  846. --- macro.c    Fri Jun 29 23:46:47 1990
  847. ***************
  848. *** 453,458 ****
  849. --- 453,460 ----
  850.   
  851.       if (m_level == 0)
  852.       no_advance = 0;
  853. +     else if (m == NULL)
  854. +     m_level--;
  855.       else {
  856.       if (m_level > MSTACK) {
  857.           msg("Macro stack overflow");
  858. *** ./LAST/man/nn.1.B    Mon Jun 25 15:46:45 1990
  859. --- man/nn.1.B    Mon Jul  9 17:17:28 1990
  860. ***************
  861. *** 741,746 ****
  862. --- 741,751 ----
  863.   Change current working directory.  If the directory argument is not provided,
  864.   \fInn\fP will prompt for it.
  865.   .TP
  866. + \fB:clear\fP
  867. + Clear the screen (without redraw).  This may be useful at the
  868. + beginning of the init file (possibly guarded by "on program nn"), or
  869. + in some macros.
  870. + .TP
  871.   \fB:compile\fP
  872.   Recompile the \fIkill\fP file.  This is not necessary under normal
  873.   operation since \fInn\fP automatically compiles the file on start-up
  874. ***************
  875. *** 761,766 ****
  876. --- 766,776 ----
  877.   \fB:help\fP [ \fIsubject\fP ]
  878.   Provide online help on the specified subject.  If you omit the
  879.   subject, a list of the available topics will be given.
  880. + .TP
  881. + \fB:load\fP [ \fIfile\fP ]
  882. + Load the specified \fIfile\fP.  If the \fIfile\fP argument is omitted,
  883. + the init file is reloaded.
  884. + The \fBsequence\fP part (if present) is ignored.
  885.   .TP
  886.   \fB:local\fP \fIvariable\fP [ \fIvalue\fP ]
  887.   Make the variable local to the current group.  Subsequent changes to
  888. *** ./LAST/man/nn.1.C    Mon Jun 25 15:46:46 1990
  889. --- man/nn.1.C    Mon Jul  9 17:17:28 1990
  890. ***************
  891. *** 377,382 ****
  892. --- 377,387 ----
  893.   \fInn\fP will prompt for another extended command instead of redrawing
  894.   the screen (hit \fBreturn\fP to redraw).
  895.   .TP
  896. + \fBecho-prefix-key\fP        (boolean, default true)
  897. + When true, hitting a prefix key (see the section on key mapping below)
  898. + will cause the prefix key to be echoed in the message line to indicate
  899. + that another key is expected.
  900. + .TP
  901.   \fBedit-patch-command\fP    (boolean, default true)
  902.   When true, the \fB:patch\fP command will show the current
  903.   \fBpatch-command\fP and give you a chance to edit it before applying
  904. ***************
  905. *** 631,636 ****
  906. --- 636,648 ----
  907.   of the terminal if possible) to indicate the end of the overlap (see the
  908.   \fBoverlap\fP variable).
  909.   .TP
  910. + \fBmark-overlap-shading\fP    (boolean, default false)
  911. + When set, \fInn\fP will \fIshade\fP overlapping lines (see the
  912. + \fBoverlap\fP variable) using the attributes defined by the
  913. + \fBshading-on\fP and \fBshading-off\fP variables (of if not set, with
  914. + the underline attribute).  This is typically used to give overlapping
  915. + lines a different colour on terminals which have this capability.
  916. + .TP
  917.   \fBmessage-history\fP \fIN\fP    (integer, default 15)
  918.   Specifies the maximum number, \fIN\fP, of older messages which can be
  919.   recalled with the \fB^P\fP {\fBmessage\fP} command.
  920. ***************
  921. *** 781,786 ****
  922. --- 793,805 ----
  923.   \fBpreview-mark-read\fP        (boolean, default true)
  924.   When set, previewing an article will mark the article as read.
  925.   .TP
  926. + \fBprint-header-lines\fP \fIfields\fP    (string, default "FDGS")
  927. + Specifies the list of header fields that are output when
  928. + an article is printed via the \fB:print\fP command and
  929. + \fBprint-header-type\fP is 1 (short header).  The \fIfields\fP 
  930. + specification is desctribed
  931. + in the section on Customized Article Headers below.
  932. + .TP
  933.   \fBprint-header-type\fP \fIN\fP    (integer, default 1)
  934.   Specifies what kind of header is printed by the \fB:print\fP command,
  935.   corresponding to the three \fBsave-*\fP commands: \fI0\fP prints only
  936. ***************
  937. *** 882,887 ****
  938. --- 901,912 ----
  939.   substitute the \fI*\fP with successive numbers starting from one.
  940.   Setting this variable will cause these numbers to start from \fIN\fP+1.
  941.   .TP
  942. + \fBsave-header-lines\fP \fIfields\fP    (string, default "FDNS")
  943. + Specifies the list of header fields that are saved when
  944. + an article is saved via the \fBO\fP {\fBsave-short\fP} command.
  945. + The \fIfields\fP specification is desctribed
  946. + in the section on Customized Article Headers below.
  947. + .TP
  948.   \fBsave-report\fP    (boolean, default true)
  949.   When set, a message reporting the number of lines written is shown
  950.   after saving an article.  Since messages are shown for a few seconds,
  951. ***************
  952. *** 902,907 ****
  953. --- 927,952 ----
  954.   Specifies whether the \fBfind\fP (=) command in article selection mode
  955.   will match on the subject or the sender.
  956.   .TP
  957. + \fBshading-on\fP \fIcode\fP...    (control string, default not set)
  958. + Specifies the escape code to be sent to the terminal to cause
  959. + "shading" of the following output to the screen.  This is used if the
  960. + \fBmark-overlap-shading\fP is set, and by the `+' attribute in the
  961. + \fBheader-lines\fP variable.
  962. + .TP
  963. + \fBshading-off\fP \fIcode\fP...    (control string, default not set)
  964. + Specifies the escape code to be sent to the terminal to turn off the
  965. + shading defined by \fBshading-on\fP.  Shading will typically
  966. + be done by changing the foreground colour to change, e.g.
  967. + .sp 0.5v
  968. + .nf
  969. +     on term ti924-colour
  970. +         set shading-on  ^[ [ 3 2 m
  971. +         set shading-off ^[ [ 3 7 m
  972. +         set mark-overlap-shading
  973. +         unset mark-overlap
  974. +     end
  975. + .fi
  976. + .TP
  977.   \fBshell\fP \fIprogram\fP    (string, default $SHELL)
  978.   The shell program used to execute shell escapes.
  979.   .TP
  980. ***************
  981. *** 1078,1083 ****
  982. --- 1123,1138 ----
  983.   Specifies how many changes need to be done to the .newsrc or select
  984.   files before they are written back to disk.  The default setting
  985.   causes .newsrc to be updated every time a group has been read.
  986. + .TP
  987. + \fBuse-path-in-from\fP        (boolean, default false)
  988. + When \fBmail-format\fP is set, saved articles will be preceded by a
  989. + specially formatted \&"From\ " line:
  990. + .br
  991. +     From origin date
  992. + .br
  993. + Normally, the origin will be the name of the news group where the
  994. + article appeared, but if \fBuse-path-in-from\fP is set, the contents
  995. + of the "Path:" header will be used as the origin.
  996.   .TP
  997.   \fBuse-selections\fP        (boolean, default true)
  998.   When set, \fInn\fP uses the selections and other article attributes
  999. *** ./LAST/man/nn.1.D    Mon Jun 25 15:46:47 1990
  1000. --- man/nn.1.D    Mon Jul  9 17:17:28 1990
  1001. ***************
  1002. *** 15,23 ****
  1003.   customized headers will then contain exactly these header lines
  1004.   \fIin the specified order\fP.
  1005.   .LP
  1006.   The following header line identifiers are recognized in the
  1007. ! .B header-lines
  1008. ! variable:
  1009.   .LP
  1010.   .in +8n
  1011.   .ta 5m
  1012. --- 15,28 ----
  1013.   customized headers will then contain exactly these header lines
  1014.   \fIin the specified order\fP.
  1015.   .LP
  1016. + The same specifications are also used by the \fB:print\fP and
  1017. + \fBsave-short\fP commands via the \fBprint-header-lines\fP and
  1018. + \fBsave-header-lines\fP variables.
  1019. + .LP
  1020.   The following header line identifiers are recognized in the
  1021. ! \fBheader-lines\fP,
  1022. ! \fBprint-header-lines\fP, 
  1023. ! and \fBsave-header-lines\fP variables:
  1024.   .LP
  1025.   .in +8n
  1026.   .ta 5m
  1027. ***************
  1028. *** 25,30 ****
  1029. --- 30,37 ----
  1030.   .br
  1031.   \fBA\fP    Approved:
  1032.   .br
  1033. + \fBa\fP    Spool-File:    (path of spool file containing the article)
  1034. + .br
  1035.   \fBB\fP    Distribution:
  1036.   .br
  1037.   \fBD\fP    Date:
  1038. ***************
  1039. *** 55,60 ****
  1040. --- 62,69 ----
  1041.   .br
  1042.   \fBS\fP    Subject:
  1043.   .br
  1044. + \fBv\fP    Save-File:    (the default save file for this article)
  1045. + .br
  1046.   \fBW\fP    Followup-To:
  1047.   .br
  1048.   \fBX\fP    References:
  1049. ***************
  1050. *** 65,73 ****
  1051. --- 74,95 ----
  1052.   .in -8n
  1053.   .DT
  1054.   .LP
  1055. + The 'G' and 'g' fields will include the local article number if it is
  1056. + known, e.g.
  1057. + .br
  1058. +     Newsgroup: news.software.nn/754
  1059. + .LP
  1060. + The following special symbols are recognized in the \fBheader-lines\fP
  1061. + variable (and ignored otherwise):
  1062. + .LP
  1063.   Preceding the identifier with an equal sign "=" or an underscore "_"
  1064.   will cause the header field contents to be high-lighted or underlined.
  1065.   .LP
  1066. + A plus sign "+" will use the shading attribute defined by
  1067. + \fBshading-on\fP and \fBshading-off\fP to high-light the field
  1068. + contents.  If no shading attribute is defined it will underline the
  1069. + field instead.
  1070. + .LP
  1071.   Including an asterisk "*" in the list will produce the standard one
  1072.   line header at that point.
  1073.   .LP
  1074. ***************
  1075. *** 494,499 ****
  1076. --- 516,550 ----
  1077.   in reading mode is:
  1078.   .sp 0.5v
  1079.       \fBmap show\fP \fIkey command\fP
  1080. + .LP
  1081. + In addition to the direct mappings described above, the following
  1082. + variations of the \fBmap\fP command are available:
  1083. + .TP
  1084. + .B User defined keymaps
  1085. + Additional keymaps can be defined using the command
  1086. + .sp 0.5v
  1087. +     \fBmake map\fP \fInewmap\fP
  1088. + .sp 0.5v
  1089. + This will create a new keymap which can initialized using normal
  1090. + \fBmap\fP commands, e.g.
  1091. + .sp 0.5v
  1092. +     \fBmap\fP \fInewmap key command\fP 
  1093. + .sp 0.5v
  1094. + To activate a user-defined keymap, it must be bound to a \fIprefix key\fP:
  1095. + .sp 0.5v
  1096. +     \fBmap\fP \fIbase-map prefix-key\fP \fBprefix\fP \fInewmap\fP
  1097. + .sp 0.5v
  1098. + When used, the prefix key itself does not activate a command, but
  1099. + instead it require another key to be entered and then execute the
  1100. + command bound to that key in the keymap which is bound to the prefix key.
  1101. +   For example, to let the key sequence "^X i" execute macro number 10 in
  1102. + both modes, the following commands can be used:
  1103. + .sp 0.5v
  1104. + .nf
  1105. +     make map ctl-x
  1106. +     map ctl-x i macro 10
  1107. +     map both ^X prefix ctl-x
  1108. + .fi
  1109.   .TP
  1110.   .B Mapping keys in both modes
  1111.   Using the pseudo-keymap `both', it is possible to map a key to a
  1112. *** ./LAST/master.c    Mon Jun 25 15:46:48 1990
  1113. --- master.c    Fri Jul  6 01:57:35 1990
  1114. ***************
  1115. *** 730,736 ****
  1116.   #endif
  1117.           if (debug_mode) {
  1118.           printf("NONE (*** SLEEP ***)\n");
  1119. -         continue;
  1120.           }
  1121.   
  1122.           if (trace) log_entry('T', "none");
  1123. --- 730,735 ----
  1124. ***************
  1125. *** 753,759 ****
  1126.   #ifdef NNTP
  1127.       if (use_nntp) nntp_cleanup();
  1128.   #endif
  1129. !     if (!debug_mode) sleep(repeat_delay);
  1130.       if (s_hangup) break;
  1131.       }
  1132.   
  1133. --- 752,758 ----
  1134.   #ifdef NNTP
  1135.       if (use_nntp) nntp_cleanup();
  1136.   #endif
  1137. !     sleep(repeat_delay);
  1138.       if (s_hangup) break;
  1139.       }
  1140.   
  1141. *** ./LAST/menu.c    Mon Jun 25 15:46:49 1990
  1142. --- menu.c    Thu Jul  5 17:53:17 1990
  1143. ***************
  1144. *** 13,18 ****
  1145. --- 13,19 ----
  1146.   
  1147.   import char *news_lib_directory;
  1148.   
  1149. + export int  echo_prefix_key = 1; /* echo prefix keys */
  1150.   export int  preview_window = 0;    /* size of preview window */
  1151.   export int  fmt_linenum    = 1; /* menu line format */
  1152.   export int  fmt_rptsubj    = 0; /* repeat identical subjects if !0 */
  1153. ***************
  1154. *** 498,503 ****
  1155. --- 499,505 ----
  1156.   {
  1157.       extern int any_message;
  1158.       register int c, map;
  1159. +     int *key_map = menu_key_map;
  1160.   
  1161.       if (flush_typeahead) flush_input();
  1162.   
  1163. ***************
  1164. *** 510,519 ****
  1165.       map = c & ~GETC_COMMAND;
  1166.       } else {
  1167.       cur_key = c;
  1168. !     map = menu_key_map[c];
  1169.       }
  1170.       if (s_hangup) map = K_QUIT;
  1171.   
  1172.       if (map & K_ARTICLE_ID) {
  1173.       article_id = map & ~K_ARTICLE_ID;
  1174.       map = K_ARTICLE_ID;
  1175. --- 512,527 ----
  1176.       map = c & ~GETC_COMMAND;
  1177.       } else {
  1178.       cur_key = c;
  1179. !     map = key_map[c];
  1180.       }
  1181.       if (s_hangup) map = K_QUIT;
  1182.   
  1183. +     if (map & K_PREFIX_KEY) {
  1184. +     key_map = keymaps[map & ~K_PREFIX_KEY].km_map;
  1185. +     if (echo_prefix_key) msg("%s", key_name(cur_key));
  1186. +     goto loop;
  1187. +     }
  1188. + 
  1189.       if (map & K_ARTICLE_ID) {
  1190.       article_id = map & ~K_ARTICLE_ID;
  1191.       map = K_ARTICLE_ID;
  1192. ***************
  1193. *** 598,614 ****
  1194.   static get_purpose(purpose)
  1195.   char *purpose;
  1196.   {
  1197. ! #ifdef NNTP
  1198. !     return;            /* newsgroups file is not available */
  1199. ! #else
  1200. !     FILE *f;
  1201.       char line[256], group[80];
  1202.       register char *cp, *pp;
  1203.       register int len;
  1204.   
  1205. !     f = open_file(relative(news_lib_directory, "newsgroups"), OPEN_READ);
  1206. !     if (f == NULL) return;
  1207. ! 
  1208.       sprintf(group, "%s\t", current_group->group_name);
  1209.       len = current_group->group_name_length + 1;
  1210.   
  1211. --- 606,631 ----
  1212.   static get_purpose(purpose)
  1213.   char *purpose;
  1214.   {
  1215. !     static FILE *f = NULL;
  1216. !     static not_avail = 0;
  1217.       char line[256], group[80];
  1218.       register char *cp, *pp;
  1219.       register int len;
  1220.   
  1221. !     if (not_avail) return;
  1222. ! #ifdef NNTP
  1223. !     if (use_nntp) {
  1224. !     extern FILE *nntp_get_newsgroups();
  1225. !     f = nntp_get_newsgroups();
  1226. !     } else
  1227. ! #endif
  1228. !     f = open_file(relative(news_lib_directory, "newsgroups"), OPEN_READ);
  1229. !     if (f == NULL) {
  1230. !     not_avail = 1;
  1231. !     return;
  1232. !     }
  1233. !     rewind(f);
  1234. !     
  1235.       sprintf(group, "%s\t", current_group->group_name);
  1236.       len = current_group->group_name_length + 1;
  1237.   
  1238. ***************
  1239. *** 620,628 ****
  1240.           *pp++ = *cp++;
  1241.       *pp = NUL;
  1242.       }
  1243. - 
  1244. -     fclose(f);
  1245. - #endif
  1246.   }
  1247.   
  1248.   
  1249. --- 637,642 ----
  1250. ***************
  1251. *** 736,741 ****
  1252. --- 750,758 ----
  1253.       auto_read = entry_check = 0;
  1254.       if (repl_attr_all(0, A_AUTO_SELECT, 0)) {
  1255.           k_cmd = K_READ_GROUP_UPDATE;
  1256. +         if (purpose[0])
  1257. +         strcpy(delayed_msg, purpose);
  1258. +         else
  1259.           sprintf(delayed_msg, "Entering %s, %ld articles",
  1260.               current_group->group_name, (long)n_articles);
  1261.           goto do_auto_read;
  1262. *** ./LAST/more.c    Mon Jun 25 15:46:49 1990
  1263. --- more.c    Sat Jul  7 01:35:47 1990
  1264. ***************
  1265. *** 32,37 ****
  1266. --- 32,38 ----
  1267.   import int  auto_preview_mode;
  1268.   import int  flush_typeahead;
  1269.   import int  case_fold_search;
  1270. + import int  echo_prefix_key;
  1271.   
  1272.   import char delayed_msg[];
  1273.   
  1274. ***************
  1275. *** 48,53 ****
  1276. --- 49,67 ----
  1277.   
  1278.   #define LINEMAX    100        /* most articles are less than 100 lines */
  1279.   
  1280. + export int  mark_overlap_shading = 0;
  1281. + export char *shade_on_attr = NULL;
  1282. + export char *shade_off_attr = NULL;
  1283. + 
  1284. + static shadeline(on)
  1285. + int on;
  1286. + {
  1287. +     if (on) {
  1288. +     if (shade_on_attr) fputs(shade_on_attr, stdout); else underline(1);
  1289. +     } else
  1290. +     if (shade_off_attr) fputs(shade_off_attr, stdout); else underline(0);
  1291. + }
  1292. +     
  1293.   static struct header_def {
  1294.       char field;
  1295.       char *text;
  1296. ***************
  1297. *** 74,82 ****
  1298. --- 88,209 ----
  1299.       'G', "Newsgroup",    &news.ng_groups,    0,
  1300.       'n', "Newsgroups",    &news.ng_groups,    0,
  1301.       'x', "Back-Ref",    &news.ng_bref,        0,
  1302. +     'v', "Save-File",    NULL,            0,
  1303. +     'a', "Spool-File",    NULL,            0,
  1304.       0
  1305.   };
  1306.   
  1307. + get_header_field(code, namep, valp, ah)
  1308. + char code, **namep, **valp;
  1309. + register article_header *ah;
  1310. + {
  1311. +     static char special[FILENAME];
  1312. +     register struct header_def *hdef;
  1313. +     import char *folder_save_file, *default_save_file;
  1314. +     char *lp;
  1315. + 
  1316. +     lp = NULL;
  1317. +     for (hdef = header_defs; hdef->field; hdef++) {
  1318. +     if (hdef->field != code) continue;
  1319. + 
  1320. +     if ((ah->flag & A_DIGEST) && hdef->digest)
  1321. +         lp = *(hdef->digest);
  1322. +     if (lp == NULL && hdef->news)
  1323. +         lp = *(hdef->news);
  1324. +     break;
  1325. +     }
  1326. +     
  1327. +     switch (code) {
  1328. +      case 'n':
  1329. +      case 'g':
  1330. +     if (lp == NULL) break;
  1331. +     if (!(current_group->group_flag & G_MERGED) && strchr(lp, ',') == NULL)
  1332. +         return 0;
  1333. +     if (code == 'n') break;
  1334. +      case 'G':
  1335. +     if (ah->a_number > 0) {
  1336. +         sprintf(special, "%s/%ld", 
  1337. +             current_group->group_name, (long)ah->a_number);
  1338. +         lp = special;
  1339. +     } else
  1340. +         lp = current_group->group_name;
  1341. +     break;
  1342. + 
  1343. +      case 'a':
  1344. +     if (current_group->group_flag & G_FOLDER)
  1345. +         lp = current_group->archive_file;
  1346. +     else
  1347. +     if (group_file_name && *group_file_name)
  1348. +         lp = group_path_name;
  1349. +     break;
  1350. + 
  1351. +      case 'v':
  1352. +     if ((lp = current_group->save_file) == NULL)
  1353. +         lp = (current_group->group_flag & G_FOLDER) ?
  1354. +         folder_save_file : default_save_file;
  1355. +     if (lp == NULL) return 0;
  1356. +     if (expand_file_name(special, lp, 2)) lp = special;
  1357. +     break;
  1358. +     }
  1359. +     if (lp == NULL) return 0;
  1360. + 
  1361. +     *namep = hdef->text;
  1362. +     *valp = lp;
  1363. +     return 1;
  1364. + }
  1365. + 
  1366. + static char *scan_codes;
  1367. + static article_header *scan_arthdr;
  1368. + 
  1369. + scan_header_fields(fields, ah)
  1370. + char *fields;
  1371. + article_header *ah;
  1372. + {
  1373. +     scan_codes = fields;
  1374. +     scan_arthdr = ah;
  1375. + }
  1376. + 
  1377. + next_header_field(namep, valp, attrp)
  1378. + char **namep, **valp;
  1379. + fct_type *attrp;
  1380. + {
  1381. +     fct_type attr;
  1382. +     extern highlight(), underline();
  1383. + 
  1384. +     while (*scan_codes) {
  1385. +     attr = NULL_FCT;
  1386. +     *namep = NULL;
  1387. + 
  1388. +     switch (*scan_codes) {
  1389. +      case '*':
  1390. +         scan_codes++;
  1391. +         return 1;    /* name == NULL */
  1392. +         
  1393. +      case '=':
  1394. +         attr = highlight;
  1395. +         scan_codes++;
  1396. +         break;
  1397. +         
  1398. +      case '_':
  1399. +         attr = underline;
  1400. +         scan_codes++;
  1401. +         break;
  1402. + 
  1403. +      case '+':
  1404. +         attr = shadeline;
  1405. +         scan_codes++;
  1406. +         break;
  1407. +     }
  1408. +     
  1409. +     if (*scan_codes == NUL) break;
  1410. + 
  1411. +     if (attrp) *attrp = attr;
  1412. +     if (get_header_field(*scan_codes++, namep, valp, scan_arthdr))
  1413. +         return 1;
  1414. +     }
  1415. +     return 0;
  1416. + }
  1417. + 
  1418.   static char *a_st_flags(flag)
  1419.   flag_type flag;
  1420.   {
  1421. ***************
  1422. *** 124,129 ****
  1423. --- 251,257 ----
  1424.   article_header *ah;
  1425.   int mode, screen_offset;
  1426.   {
  1427. +     register char *lp;
  1428.       register int c, col, lno;
  1429.       register FILE *art;
  1430.       int more_cmd, eof, skip_spaces, has_space, window_lines;
  1431. ***************
  1432. *** 132,138 ****
  1433.       off_t lineposbuf[LINEMAX];
  1434.       off_t *linepos = lineposbuf;
  1435.       int linemax = LINEMAX;
  1436. !     char linebuf[200], *lp, skip_char;
  1437.       int skip_wrap;
  1438.       news_header_buffer ngheader, dgheader;
  1439.       struct news_header news_save;
  1440. --- 260,266 ----
  1441.       off_t lineposbuf[LINEMAX];
  1442.       off_t *linepos = lineposbuf;
  1443.       int linemax = LINEMAX;
  1444. !     char linebuf[200], skip_char;
  1445.       int skip_wrap;
  1446.       news_header_buffer ngheader, dgheader;
  1447.       struct news_header news_save;
  1448. ***************
  1449. *** 145,152 ****
  1450.       article_header digestah;
  1451.       char *fname, *hdrline;
  1452.       extern STANDOUT;
  1453. !     char pr_fmt[60], send_date[40];
  1454. !     int match_expr;
  1455.       char *match_start, *match_end;
  1456.       int open_modes, hdr_mode, o_mode;
  1457.       struct header_def *hdef;
  1458. --- 273,283 ----
  1459.       article_header digestah;
  1460.       char *fname, *hdrline;
  1461.       extern STANDOUT;
  1462. !     char pr_fmt[200], send_date[40];
  1463. !     int match_expr, shade_overlap, shade_line;
  1464. !     int *key_map;
  1465. !     key_type cur_key;
  1466. !     fct_type hdrattr;
  1467.       char *match_start, *match_end;
  1468.       int open_modes, hdr_mode, o_mode;
  1469.       struct header_def *hdef;
  1470. ***************
  1471. *** 222,237 ****
  1472.       match_lines = match_redraw = match_expr = 0;
  1473.       underline_line = -1;
  1474.       fake_underline = 0;
  1475.   
  1476.       stop_line = first_page_lines ? first_page_lines : -1;
  1477.   
  1478.       if (new_read_prompt) {
  1479.       import long n_selected;
  1480.   
  1481.       if (mode & (MM_PREVIEW | MM_DIGEST) || n_selected == 0)
  1482.           sprintf(pr_fmt,
  1483.               "\1\2--%s-- %s%s %s--%%s--%%s\1",
  1484. !             current_group->group_name,
  1485.               (mode & MM_DIGEST) ? "DIGEST" :
  1486.               (mode & MM_PREVIEW) ? "PREVIEW" : "LAST",
  1487.               (ah->flag & A_NEXT_SAME) ? "+next" : "",
  1488. --- 353,384 ----
  1489.       match_lines = match_redraw = match_expr = 0;
  1490.       underline_line = -1;
  1491.       fake_underline = 0;
  1492. +     shade_overlap = 0;
  1493.   
  1494.       stop_line = first_page_lines ? first_page_lines : -1;
  1495.   
  1496.       if (new_read_prompt) {
  1497.       import long n_selected;
  1498. +     char *xp, *group_name = current_group->group_name;
  1499. +     int len, maxl;
  1500.   
  1501. +     maxl = novice ? 18 : 25;
  1502. +     
  1503. +     if ((len = strlen(group_name)) > maxl) {
  1504. +         for (xp = group_name + len - maxl; *xp; xp++) {
  1505. +         if (*xp == '.') break;
  1506. +         if (*xp == '/') { xp++; break; }
  1507. +         }
  1508. +         if (*xp)
  1509. +         group_name = xp;
  1510. +         else
  1511. +         group_name += len - maxl;
  1512. +     }
  1513. +     
  1514.       if (mode & (MM_PREVIEW | MM_DIGEST) || n_selected == 0)
  1515.           sprintf(pr_fmt,
  1516.               "\1\2--%s-- %s%s %s--%%s--%%s\1",
  1517. !             group_name,
  1518.               (mode & MM_DIGEST) ? "DIGEST" :
  1519.               (mode & MM_PREVIEW) ? "PREVIEW" : "LAST",
  1520.               (ah->flag & A_NEXT_SAME) ? "+next" : "",
  1521. ***************
  1522. *** 239,245 ****
  1523.       else
  1524.           sprintf(pr_fmt,
  1525.               "\1\2--%s-- %ld MORE%s %s--%%s--%%s\1",
  1526. !             current_group->group_name,
  1527.               n_selected,
  1528.               (ah->flag & A_NEXT_SAME) ? "+next" : "",
  1529.               novice ? "--help:?" : "");
  1530. --- 386,392 ----
  1531.       else
  1532.           sprintf(pr_fmt,
  1533.               "\1\2--%s-- %ld MORE%s %s--%%s--%%s\1",
  1534. !             group_name,
  1535.               n_selected,
  1536.               (ah->flag & A_NEXT_SAME) ? "+next" : "",
  1537.               novice ? "--help:?" : "");
  1538. ***************
  1539. *** 315,397 ****
  1540.   
  1541.       if (hdrline && screen_offset == 0) {
  1542.   
  1543. !         hdr_mode = 0;
  1544. !         while (*hdrline) {
  1545. ! 
  1546. !         if (*hdrline == '*') goto print_header;
  1547.   
  1548. !         if (*hdrline == '=') {
  1549. !             hdr_mode = 1;
  1550. !             hdrline++;
  1551. !             continue;
  1552. !         }
  1553. !         if (*hdrline == '_') {
  1554. !             hdr_mode = 2;
  1555. !             hdrline++;
  1556. !             continue;
  1557. !         }
  1558. !         for (hdef = header_defs; hdef->field; hdef++) {
  1559. !             if (hdef->field != *hdrline) continue;
  1560. !             if (in_digest) {
  1561. !             if (hdef->digest == NULL) break;
  1562. !             if ((lp = *(hdef->digest)) == NULL)
  1563.                   break;
  1564. -             } else
  1565. -             if ((lp = *(hdef->news)) == NULL)
  1566. -                 break;
  1567. -             if (*hdrline == 'n' || *hdrline == 'g')
  1568. -             if ((current_group->group_flag & G_MERGED) == 0 &&
  1569. -                 strchr(lp, ',') == NULL) break;
  1570. -             if (*hdrline == 'g' || *hdrline == 'G')
  1571. -             lp = current_group->group_name;
  1572. - 
  1573. -             gotoxy(0, lno++);
  1574. -             printf("%s: ", hdef->text);
  1575. -             c = col = strlen(hdef->text) + 2;
  1576. -          split_header_line:
  1577. -             switch (hdr_mode) {
  1578. -              case 0:
  1579. -             break;
  1580. -              case 1:
  1581. -             highlight(1);
  1582. -             break;
  1583. -              case 2:
  1584. -             underline(1);
  1585. -             break;
  1586. -             }
  1587. -             while (*lp && c < Columns) {
  1588. -             if (isspace(*lp)) {
  1589. -                 while (lp[1] && isspace(lp[1])) lp++;
  1590. -                 if (wrap_headers > 0 &&
  1591. -                 (c + wrap_headers) >= Columns &&
  1592. -                 strlen(lp) >= wrap_headers) {
  1593. -                 lp++;
  1594. -                 break;
  1595. -                 }
  1596. -                 *lp = SP;
  1597.               }
  1598. !             putchar(*lp++);
  1599. !             c++;
  1600. !             }
  1601. !             switch (hdr_mode) {
  1602. !              case 0:
  1603. !             break;
  1604. !              case 1:
  1605. !             highlight(0);
  1606. !             break;
  1607. !              case 2:
  1608. !             underline(0);
  1609. !             break;
  1610.               }
  1611. !             if (*lp && wrap_headers >= 0) {
  1612. !             gotoxy(col, lno++);
  1613. !             c = col;
  1614. !             goto split_header_line;
  1615. !             }
  1616. !             break;
  1617.           }
  1618. -         hdr_mode = 0;
  1619. -         hdrline++;
  1620.           }
  1621.   
  1622.           hdrline = NULL;
  1623. --- 462,503 ----
  1624.   
  1625.       if (hdrline && screen_offset == 0) {
  1626.   
  1627. !         scan_header_fields(hdrline, ah);
  1628. !         while (next_header_field(&fname, &hdrline, &hdrattr)) {
  1629.   
  1630. !         if (fname == NULL) {
  1631. !             hdrline = --scan_codes;    /* this is a hack! */
  1632. !             goto print_header;
  1633. !         }
  1634. !         lp = hdrline;
  1635. ! 
  1636. !         gotoxy(0, lno++);
  1637. !         printf("%s: ", fname);
  1638. !         c = col = strlen(fname) + 2;
  1639. ! 
  1640. !          split_header_line:
  1641. !         if (hdrattr) CALL(hdrattr)(1);
  1642. ! 
  1643. !         while (*lp && c < Columns) {
  1644. !             if (isspace(*lp)) {
  1645. !             while (lp[1] && isspace(lp[1])) lp++;
  1646. !             if (wrap_headers > 0 &&
  1647. !                 (c + wrap_headers) >= Columns &&
  1648. !                 strlen(lp) >= wrap_headers) {
  1649. !                 lp++;
  1650.                   break;
  1651.               }
  1652. !             *lp = SP;
  1653.               }
  1654. !             putchar(*lp++);
  1655. !             c++;
  1656. !         }
  1657. !         if (hdrattr) CALL(hdrattr)(0);
  1658. !         if (*lp && wrap_headers >= 0) {
  1659. !             gotoxy(col, lno++);
  1660. !             c = col;
  1661. !             goto split_header_line;
  1662.           }
  1663.           }
  1664.   
  1665.           hdrline = NULL;
  1666. ***************
  1667. *** 417,422 ****
  1668. --- 523,529 ----
  1669.           extra_lines = print_lines - stop_line;
  1670.           print_lines = stop_line;
  1671.           underline_line = -1;
  1672. +         shade_overlap = 0;
  1673.       }
  1674.       stop_line = 0;
  1675.       } else
  1676. ***************
  1677. *** 621,626 ****
  1678. --- 728,734 ----
  1679.       if (overlap > 0) {
  1680.           underline_line = linenum - 1;
  1681.           linenum -= overlap + 1;
  1682. +         shade_overlap = mark_overlap_shading;
  1683.           goto next_page;
  1684.       }
  1685.       }
  1686. ***************
  1687. *** 647,652 ****
  1688. --- 755,767 ----
  1689.   
  1690.       /* now print the line */
  1691.   
  1692. +     shade_line = 0;
  1693. +     if ((shade_overlap > 0 && linenum <= underline_line) ||
  1694. +     (shade_overlap < 0 && linenum > underline_line)) {
  1695. +     if (match_redraw) goto no_print;
  1696. +     match_start = NULL;
  1697. +     shade_line = 1;
  1698. +     } else
  1699.       if (match_lines && underline_line != linenum &&
  1700.       regexec_cf(regular_expr, linebuf)) {
  1701.       match_start = regular_expr->startp[0];
  1702. ***************
  1703. *** 659,664 ****
  1704. --- 774,782 ----
  1705.       gotoxy(0, lno);
  1706.       if (!scroll_clear_page) clrline();
  1707.   
  1708. +     if (shade_line)
  1709. +     shadeline(1);
  1710. +     else
  1711.       if (mark_overlap && underline_line == linenum)
  1712.       if (!underline(1))
  1713.           fake_underline = 1;
  1714. ***************
  1715. *** 695,700 ****
  1716. --- 813,825 ----
  1717.   
  1718.       if (match_start) highlight(0);
  1719.   
  1720. +     if (shade_line) {
  1721. +     shadeline(0);
  1722. +     if (shade_overlap > 0 && underline_line == linenum) {
  1723. +         underline_line = -1;
  1724. +         shade_overlap = 0;
  1725. +     }
  1726. +     } else
  1727.       if (mark_overlap && underline_line == linenum) {
  1728.       while (lp - linebuf < 10) {
  1729.           putchar(fake_underline ? '_' : ' ');
  1730. ***************
  1731. *** 710,715 ****
  1732. --- 835,845 ----
  1733.       ++lno;
  1734.       if (--print_lines > 0 && s_keyboard == 0 && form_feed == 0) goto next_line;
  1735.   
  1736. +     if (shade_overlap) {
  1737. +     underline_line = -1;
  1738. +     shade_overlap = 0;
  1739. +     }
  1740. + 
  1741.       if (!eof && linenum >= maxline) {
  1742.       if (ignore_nl) {
  1743.           c = getc(art);
  1744. ***************
  1745. *** 753,765 ****
  1746.   
  1747.       if (flush_typeahead) flush_input();
  1748.   
  1749.       if ((c = get_c()) & GETC_COMMAND)
  1750.       c &= ~GETC_COMMAND;
  1751.       else
  1752. !     c = more_key_map[c];
  1753.   
  1754.       if (s_hangup) c = K_QUIT;
  1755.   
  1756.       if (any_message && c != K_LAST_MESSAGE) clrmsg(0);
  1757.   
  1758.       if (c & K_MACRO) {
  1759. --- 883,904 ----
  1760.   
  1761.       if (flush_typeahead) flush_input();
  1762.   
  1763. +     key_map = more_key_map;
  1764. + 
  1765. +  prefix_key:    
  1766.       if ((c = get_c()) & GETC_COMMAND)
  1767.       c &= ~GETC_COMMAND;
  1768.       else
  1769. !     c = key_map[cur_key = c];
  1770.   
  1771.       if (s_hangup) c = K_QUIT;
  1772.   
  1773. +     if (c & K_PREFIX_KEY) {
  1774. +     key_map = keymaps[c & ~K_PREFIX_KEY].km_map;
  1775. +     if (echo_prefix_key) msg("%s", key_name(cur_key));
  1776. +     goto prefix_key;
  1777. +     }
  1778. + 
  1779.       if (any_message && c != K_LAST_MESSAGE) clrmsg(0);
  1780.   
  1781.       if (c & K_MACRO) {
  1782. ***************
  1783. *** 797,802 ****
  1784. --- 936,942 ----
  1785.           if (linenum > overlap) {
  1786.           underline_line = linenum;
  1787.           linenum -= overlap;
  1788. +         shade_overlap = mark_overlap_shading;
  1789.           }
  1790.       }
  1791.       goto next_page;
  1792. ***************
  1793. *** 1012,1017 ****
  1794. --- 1152,1158 ----
  1795.       if (topline <= 1) goto Prompt;
  1796.       linenum = topline - window_lines + overlap; /* not perfect after FF */
  1797.       underline_line = topline;
  1798. +     shade_overlap = -mark_overlap_shading;
  1799.       if (linenum < 1) linenum = 1;
  1800.       goto next_page;
  1801.   
  1802. *** ./LAST/nn.c    Mon Jun 25 15:46:50 1990
  1803. --- nn.c    Tue Jun 26 11:25:28 1990
  1804. ***************
  1805. *** 557,563 ****
  1806.       mallopt(M_NLBLKS, MALLOC_FASTBLOCKS);
  1807.   #endif
  1808.   #ifdef MALLOC_GRAIN
  1809. !     mallopt(M_GRAIN, MALLOC_GRAIN));
  1810.   #endif
  1811.   #endif
  1812.   
  1813. --- 557,563 ----
  1814.       mallopt(M_NLBLKS, MALLOC_FASTBLOCKS);
  1815.   #endif
  1816.   #ifdef MALLOC_GRAIN
  1817. !     mallopt(M_GRAIN, MALLOC_GRAIN);
  1818.   #endif
  1819.   #endif
  1820.   
  1821. *** ./LAST/nntp.c    Tue Jun 12 11:47:00 1990
  1822. --- nntp.c    Thu Jul  5 12:57:33 1990
  1823. ***************
  1824. *** 788,793 ****
  1825. --- 788,838 ----
  1826.   }
  1827.   
  1828.   /*
  1829. +  * nntp_get_newsgroups:  get a copy of the newsgroups file.
  1830. +  *
  1831. +  *    Use the "LIST NEWSGROUPS" command to get the newsgroup descriptions.
  1832. +  *    Based on code from: olson%anchor.esd@sgi.com (Dave Olson)
  1833. +  */
  1834. + 
  1835. + FILE *nntp_get_newsgroups()
  1836. + {
  1837. +     char *new_name;
  1838. +     FILE *new = NULL;
  1839. +     int n;
  1840. + 
  1841. +     new_name = mktemp(relative(tmp_directory, "nngrXXXXXX"));
  1842. +     new = open_file(new_name, OPEN_CREATE_RW|OPEN_UNLINK);
  1843. +     if (new == NULL) return NULL;
  1844. + 
  1845. +  again:
  1846. +     if (!is_connected && connect_server() < 0) goto err;
  1847. + 
  1848. +     switch (n = ask_server("LIST NEWSGROUPS")) {
  1849. +      case OK_GROUPS:
  1850. +     if (copy_text(new) == 0) {
  1851. +         if (fflush(new) != EOF) break;
  1852. +         fclose(new);
  1853. +     }
  1854. +     if (!nntp_failed) {
  1855. +         log_entry('N', "LIST NEWSGROUPS empty");
  1856. +         nntp_failed = 1;
  1857. +     }
  1858. +     return NULL;
  1859. + 
  1860. +      default:
  1861. +     if (try_again) goto again; /* Handle nntp server timeouts */
  1862. +     log_entry('N', "LIST NEWSGROUPS response: %d", n);
  1863. +     goto err;
  1864. +     }
  1865. +     rewind(new);
  1866. +     return new;
  1867. + 
  1868. +  err:
  1869. +     fclose(new);
  1870. +     return NULL;
  1871. + }
  1872. + 
  1873. + /*
  1874.    * nntp_get_article_list: get list of all article numbers in group
  1875.    *
  1876.    *     Sends XHDR command to the server, and parses the following
  1877. ***************
  1878. *** 834,839 ****
  1879. --- 879,885 ----
  1880.        default:
  1881.           if (try_again) goto again; /* Handle nntp server timeouts */
  1882.           log_entry('N', "LISTGROUP response: %d", n);
  1883. +         return NULL;
  1884.        case ERR_COMMAND:
  1885.           try_listgroup = 0;
  1886.           goto again;    /* error may have closed down server connection */
  1887. ***************
  1888. *** 857,862 ****
  1889. --- 903,909 ----
  1890.        default:
  1891.           if (try_again) goto again; /* Handle nntp server timeouts */
  1892.           log_entry('N', "XHDR response: %d", n);
  1893. +         return NULL;
  1894.        case ERR_COMMAND:
  1895.           nntp_failed = 2;
  1896.           return NULL;
  1897. *** ./LAST/patchlevel.h    Mon Jun 25 15:46:51 1990
  1898. --- patchlevel.h    Mon Jul  9 14:51:13 1990
  1899. ***************
  1900. *** 17,23 ****
  1901.    *    1990-05-29: Patch #4 (6.4.4) - HIGH
  1902.    *    1990-06-11: Patch #5 (6.4.5) - MEDIUM
  1903.    *    1990-06-25: Patch #6 (6.4.6) - MEDIUM
  1904.    */
  1905.   
  1906. ! #define PATCHLEVEL 6
  1907.   
  1908. --- 17,24 ----
  1909.    *    1990-05-29: Patch #4 (6.4.4) - HIGH
  1910.    *    1990-06-11: Patch #5 (6.4.5) - MEDIUM
  1911.    *    1990-06-25: Patch #6 (6.4.6) - MEDIUM
  1912. +  *    1990-07-09: Patch #7 (6.4.7) - LOW
  1913.    */
  1914.   
  1915. ! #define PATCHLEVEL 7
  1916.   
  1917. *** ./LAST/proto.c    Tue May 29 18:36:37 1990
  1918. --- proto.c    Thu Jul  5 23:45:04 1990
  1919. ***************
  1920. *** 10,15 ****
  1921. --- 10,21 ----
  1922.   #include <pwd.h>
  1923.   #include "proto.h"
  1924.   
  1925. + #ifndef ACCOUNTING
  1926. + #ifdef AUTHORIZE
  1927. + #define ACCOUNTING
  1928. + #endif
  1929. + #endif
  1930. + 
  1931.   import char *master_directory, *db_directory;
  1932.   
  1933.   /*
  1934. *** ./LAST/save.c    Mon Jun 25 15:46:51 1990
  1935. --- save.c    Fri Jul  6 00:43:49 1990
  1936. ***************
  1937. *** 16,21 ****
  1938. --- 16,22 ----
  1939.   export int suggest_save_file = 1;
  1940.   export char *unshar_header_file = "Unshar.Headers";
  1941.   export int  use_mail_folders = 0;
  1942. + export int  use_path_in_from = 0;
  1943.   export int  use_mmdf_folders = 0;
  1944.   export int  save_report = 1;
  1945.   export int  quick_save = 0;
  1946. ***************
  1947. *** 22,27 ****
  1948. --- 23,32 ----
  1949.   export int  conf_append = 0;
  1950.   export int  conf_create = 1;
  1951.   
  1952. + export char *print_header_lines = "FDGS";
  1953. + export char *save_header_lines = "FDNS";
  1954. + static char *short_header_lines;
  1955. + 
  1956.   export char *save_counter_format = "%d";    /* format of save counter */
  1957.   export int  save_counter_offset = 0;
  1958.   
  1959. ***************
  1960. *** 67,75 ****
  1961.   
  1962.   static int open_mode[] = {
  1963.       SKIP_HEADER,
  1964. !     FILL_NEWS_HEADER | SKIP_HEADER,
  1965.       0,
  1966. !     FILL_DIGEST_HEADER | SKIP_HEADER
  1967.   };
  1968.   
  1969.   static FILE *save_file;            /* output stream for saved files */
  1970. --- 72,80 ----
  1971.   
  1972.   static int open_mode[] = {
  1973.       SKIP_HEADER,
  1974. !     FILL_NEWS_HEADER | SKIP_HEADER | GET_ALL_FIELDS,
  1975.       0,
  1976. !     FILL_NEWS_HEADER | FILL_DIGEST_HEADER | SKIP_HEADER | GET_ALL_FIELDS
  1977.   };
  1978.   
  1979.   static FILE *save_file;            /* output stream for saved files */
  1980. ***************
  1981. *** 155,160 ****
  1982. --- 160,166 ----
  1983.       char *ckdir_path();
  1984.   
  1985.       uniq_counter = 0;
  1986. +     short_header_lines = save_header_lines;
  1987.   
  1988.       switch (command) {
  1989.   
  1990. ***************
  1991. *** 297,302 ****
  1992. --- 303,309 ----
  1993.           print_header_type = NO_HEADER;
  1994.       }
  1995.   
  1996. +     short_header_lines = print_header_lines;
  1997.       save_mode = print_header_type | IS_PIPE;
  1998.       
  1999.       if (!shell_restrictions && edit_print_command) {
  2000. ***************
  2001. *** 387,392 ****
  2002. --- 394,400 ----
  2003.       register FILE *art;
  2004.       register c, lcount, mode;
  2005.       news_header_buffer hdrbuf;
  2006. +     news_header_buffer dghdrbuf;
  2007.       int was_raw = 0, set_visual = 0;
  2008.       char copybuf[FILENAME * 4], uniqbuf[FILENAME];
  2009.       flag_type st_flag = A_ST_FILED;
  2010. ***************
  2011. *** 398,404 ****
  2012.       if (mode == SHORT_HEADER && ah->flag & A_DIGEST)
  2013.       mode = SHORT_HEADER_DG;
  2014.   
  2015. !     art = open_news_article(ah, open_mode[mode], hdrbuf, (char *)NULL);
  2016.       if (art == NULL) {
  2017.       msg("Cannot read %s", group_path_name);
  2018.       return 0;
  2019. --- 406,416 ----
  2020.       if (mode == SHORT_HEADER && ah->flag & A_DIGEST)
  2021.       mode = SHORT_HEADER_DG;
  2022.   
  2023. !     c = open_mode[mode];
  2024. !     if (use_mail_folders && use_path_in_from && (c & FILL_NEWS_HEADER) == 0)
  2025. !     c |= FILL_NEWS_HEADER | GET_ALL_FIELDS;
  2026. ! 
  2027. !     art = open_news_article(ah, c, hdrbuf, dghdrbuf);
  2028.       if (art == NULL) {
  2029.       msg("Cannot read %s", group_path_name);
  2030.       return 0;
  2031. ***************
  2032. *** 494,515 ****
  2033.           putc(c, save_file);
  2034.       }
  2035.       } else
  2036. !     if (mode == SHORT_HEADER) {
  2037. !     if (news.ng_from)
  2038. !         fprintf(save_file, "From: %s\n", news.ng_from);
  2039. !     if (news.ng_date)
  2040. !         fprintf(save_file, "Date: %s\n", news.ng_date);
  2041. !     if (news.ng_subj)
  2042. !         fprintf(save_file, "Subject: %s\n", news.ng_subj);
  2043. !     fputc(NL, save_file);
  2044. !     } else
  2045. !     if (mode == SHORT_HEADER_DG) {
  2046. !     if (digest.dg_from)
  2047. !         fprintf(save_file, "From: %s\n", digest.dg_from);
  2048. !     if (digest.dg_date)
  2049. !         fprintf(save_file, "Date: %s\n", digest.dg_date);
  2050. !     if (digest.dg_subj)
  2051. !         fprintf(save_file, "Subject: %s\n", digest.dg_subj);
  2052.       fputc(NL, save_file);
  2053.       }
  2054.   
  2055. --- 506,518 ----
  2056.           putc(c, save_file);
  2057.       }
  2058.       } else
  2059. !     if (mode == SHORT_HEADER || mode == SHORT_HEADER_DG) {
  2060. !     char *name, *val;
  2061. !     scan_header_fields(short_header_lines, ah->flag & A_DIGEST);
  2062. !     while (next_header_field(&name, &val, (fct_type *)NULL)) {
  2063. !         if (name == NULL) continue;
  2064. !         fprintf(save_file, "%s: %s\n", name, val);
  2065. !     }
  2066.       fputc(NL, save_file);
  2067.       }
  2068.   
  2069. ***************
  2070. *** 653,658 ****
  2071. --- 656,662 ----
  2072.       if (use_mail_folders) {
  2073.       now = cur_time();
  2074.       fprintf(f, "From %s %s",
  2075. +         (use_path_in_from && news.ng_path) ? news.ng_path :
  2076.           current_group->group_name, ctime(&now));
  2077.       return 1;
  2078.       }
  2079. *** ./LAST/variable.c    Mon Jun 25 15:46:52 1990
  2080. --- variable.c    Thu Jul  5 19:54:29 1990
  2081. ***************
  2082. *** 34,41 ****
  2083. --- 34,45 ----
  2084.       *pager,
  2085.       patch_command[],
  2086.       printer[],
  2087. +     *print_header_lines,
  2088.       *response_dflt_answer,
  2089.       *save_counter_format,
  2090. +     *save_header_lines,
  2091. +     *shade_on_attr,
  2092. +     *shade_off_attr,
  2093.       *spell_checker,
  2094.       *trusted_escapes,
  2095.       unshar_command[],
  2096. ***************
  2097. *** 64,69 ****
  2098. --- 68,74 ----
  2099.       dont_sort_articles,
  2100.       dont_sort_folders,
  2101.       dont_split_digests,
  2102. +     echo_prefix_key,
  2103.       edit_patch_command,
  2104.       edit_print_command,
  2105.       edit_unshar_command,
  2106. ***************
  2107. *** 83,88 ****
  2108. --- 88,94 ----
  2109.       macro_debug,
  2110.       mailer_pipe_input,
  2111.       mark_overlap,
  2112. +     mark_overlap_shading,
  2113.       match_parts_equal,
  2114.       monitor_mode,
  2115.       new_read_prompt,
  2116. ***************
  2117. *** 109,114 ****
  2118. --- 115,121 ----
  2119.       tidy_newsrc,
  2120.       use_mail_folders,
  2121.       use_mmdf_folders,
  2122. +     use_path_in_from,
  2123.       use_selections,
  2124.       use_visible_bell;
  2125.   
  2126. ***************
  2127. *** 233,238 ****
  2128. --- 240,246 ----
  2129.       "default-kill-select",    INT 0,        (char **)&dflt_kill_select,
  2130.       "default-save-file",    STR 3,        (char **)&default_save_file,
  2131.       "delay-redraw",        BOOL 0,        (char **)&delay_redraw,
  2132. +     "echo-prefix-key",         BOOL 0,        (char **)&echo_prefix_key,
  2133.       "edit-patch-command",     BOOL 0,        (char **)&edit_patch_command,
  2134.       "edit-print-command",     BOOL 0,        (char **)&edit_print_command,
  2135.       "edit-response-check",     BOOL 0,        (char **)&empty_answer_check,
  2136. ***************
  2137. *** 273,278 ****
  2138. --- 281,287 ----
  2139.       "mailer",            STR 0,        (char **)&mailer_program,
  2140.       "mailer-pipe-input",    BOOL 0,        (char **)&mailer_pipe_input,
  2141.       "mark-overlap",        BOOL 0,        (char **)&mark_overlap,
  2142. +     "mark-overlap-shading",    BOOL 0,        (char **)&mark_overlap_shading,
  2143.       "marked-by-next-group",    INT 0,        (char **)&mark_next_group,
  2144.       "marked-by-read-return",    INT 0,        (char **)&mark_read_return,
  2145.       "marked-by-read-skip",    INT 0,        (char **)&mark_read_skip,
  2146. ***************
  2147. *** 299,304 ****
  2148. --- 308,314 ----
  2149.       "patch-command",        STR SAFE 1,    (char **)patch_command,
  2150.       "preview-continuation",     INT 0,        (char **)&preview_continuation,
  2151.       "preview-mark-read",    BOOL 0,        (char **)&preview_mark_read,
  2152. +     "print-header-lines",    STR 0,        (char **)&print_header_lines,
  2153.       "print-header-type",    INT 0,        (char **)&print_header_type,
  2154.       "printer",            STR SAFE 1,    (char **)printer,
  2155.       "query-signature",        BOOL 0,        (char **)&query_signature,
  2156. ***************
  2157. *** 316,325 ****
  2158. --- 326,338 ----
  2159.       "retry-on-error",        INT 0,        (char **)&retry_on_error,
  2160.       "save-counter",        STR 3,        (char **)&save_counter_format,
  2161.       "save-counter-offset",    INT 0,        (char **)&save_counter_offset,
  2162. +     "save-header-lines",    STR 0,        (char **)&save_header_lines,
  2163.       "save-report",        BOOL 0,        (char **)&save_report,
  2164.       "scroll-clear-page",    BOOL 0,        (char **)&scroll_clear_page,
  2165.       "select-leave-next",    BOOL 0,        (char **)&select_leave_next,
  2166.       "select-on-sender",        BOOL 0,        (char **)&select_on_sender,
  2167. +     "shading-off",        STR 0,        (char **)&shade_off_attr,
  2168. +     "shading-on",        STR 0,        (char **)&shade_on_attr,
  2169.       "shell",            STR SAFE 0,    (char **)&user_shell,
  2170.       "shell-restrictions",     BOOL INIT 0,    (char **)&shell_restrictions,
  2171.       "show-purpose-mode",    INT 0,        (char **)&show_purpose_mode,
  2172. ***************
  2173. *** 342,347 ****
  2174. --- 355,361 ----
  2175.       "unshar-header-file",    STR 0,        (char **)&unshar_header_file,
  2176.       "unsubscribe-mark-read",    BOOL 4,        (char **)&keep_unsub_long,
  2177.       "update-frequency",        INT 0,        (char **)&newsrc_update_freq,
  2178. +     "use-path-in-from",        BOOL 0,        (char **)&use_path_in_from,
  2179.       "use-selections",         BOOL 0,        (char **)&use_selections,
  2180.       "visible-bell",         BOOL 0,        (char **)&use_visible_bell,
  2181.       "window",            INT 1,        (char **)&preview_window,
  2182.